home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / src / RLD_source.lha / RLD_source / debugstub.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-10-22  |  660 b   |  39 lines
  1. /*
  2.   $Id: debugstub.c,v 1.2 1997/10/21 22:35:08 wegge Stab wegge $
  3.    
  4.   $Log: debugstub.c,v $
  5.   Revision 1.2  1997/10/21 22:35:08  wegge
  6.   Snapshot inden upload af 2.13 i source og binær form
  7.  
  8.   Revision 1.1  1997/10/21 07:59:31  wegge
  9.   Initial revision
  10.  
  11.   */
  12.  
  13. #include "debugstub.h"
  14.  
  15. __asm("
  16.     .globl    _KPrintF
  17.  
  18. _KPrintF:
  19.     lea    sp@(4),a1    | DataStream
  20.     movel    a1@+,a0      | Format
  21.     movel    a2,sp@-      
  22.     lea    KPutChar,a2  | PutChProc
  23.     movel    a6,sp@-
  24.     movel    4:W,a6
  25.     jsr    a6@(-522:W)  | RawDoFmt(Format, DataStream, PutChProc)
  26.     movel    sp@+,a6
  27.     movel    sp@+,a2
  28.     rts
  29.  
  30. KPutChar:
  31.     movel    a6,sp@-
  32.     movel    4:W,a6
  33.     jsr    a6@(-516:W) | exec/RawPutChr()
  34.     movel    sp@+,a6
  35.     rts
  36.  
  37. ");
  38.  
  39.